library(tidyverse)
library(DeclareDesign)
library(rdss)

sims <- 2000
bootstrap_sims <- 2000

source("code/declarations/declaration_18.6.R")

diagnosis_18.6<- 
  declaration_18.6 |> 
  redesign(n_x1 = seq(20, 980, by = 96)) |> 
  diagnose_designs(sims = sims, bootstrap_sims = bootstrap_sims)

write_rds(diagnosis_18.6, file = "diagnosis_objects/diagnosis_18.6.rds")
